home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / bbbbs85.lha / rexx / Contents.rexx < prev    next >
OS/2 REXX Batch file  |  1995-06-03  |  1KB  |  34 lines
  1. /*          $VER: Contents.rexx 8.5 (3.6.95)
  2. copyright 1990-95 Richard Lee Stockton  FREELY DISTRIBUTABLE
  3.  
  4.      Required in C: directory   arc dms lha lzx unarj unzip zoo
  5. */
  6.  
  7. PARSE ARG argname emptyflag .
  8. IF emptyflag~=1 THEN CALL DELETE('RAM:CONTENTS')
  9. endtest=UPPER(RIGHT(argname,4))
  10. arcomm=''
  11. IF endtest='.ARC' THEN arcomm='c:arc'
  12. IF endtest='.ZOO' THEN arcomm='c:zoo'
  13. IF endtest='.LZX' THEN arcomm='c:lzx'
  14. IF arcomm~=''     THEN arcomm=arcomm 'v' argname
  15. ELSE IF endtest='.ARJ' THEN arcomm='c:unarj l' argname
  16. ELSE IF endtest='.DMS' THEN arcomm='c:dms VIEW' argname
  17. ELSE IF endtest='.ZIP' THEN arcomm='c:unzip -v' argname
  18. ELSE IF endtest='.LHA' | endtest='.LZH' | endtest='.RUN' THEN
  19.   arcomm='c:lha -N v' argname
  20. arcomm='CD RAM:' || '0A'x || arcomm
  21. IF emptyflag~=1 THEN
  22.   DO
  23.     CALL CLOSE(STDOUT)
  24.     CALL OPEN(STDOUT,'RAM:CONTENTS','W')
  25.   END
  26. ADDRESS COMMAND arcomm
  27. IF emptyflag~=1 THEN
  28.   DO
  29.     CALL CLOSE(STDOUT)
  30.     IF WORD(STATEF('RAM:CONTENTS'),2)=0 THEN CALL Contents.rexx(argname 1)
  31.   END
  32.  
  33. /* Contents.rexx */
  34.